home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / texdraw / txdexamp.latex / images.ps1 next >
Text File  |  1992-07-06  |  2KB  |  52 lines
  1. %!PS-Adobe-3.0 EPSF-3.0
  2. %%BoundingBox: (atend)
  3. %%Title: TeXdraw drawing: images.ps1
  4. %%Pages: 1
  5. %%Creator: TeXdraw V1R4a <1992/07/07>
  6. %%CreationDate: 2023/1/31
  7. 50 dict begin
  8. /mv {stroke moveto} def
  9. /lv {lineto} def
  10. /st {currentpoint stroke moveto} def
  11. /sl {st setlinewidth} def
  12. /sd {st 0 setdash} def
  13. /sg {st setgray} def
  14. /bs {gsave} def /es {stroke grestore} def
  15. /cv {curveto} def
  16. /cr {gsave /rad exch def currentpoint newpath rad 0 360 arc
  17.  stroke grestore} def
  18. /fc {gsave /rad exch def setgray currentpoint newpath
  19.  rad 0 360 arc fill grestore} def
  20. /ar {gsave currentpoint newpath 5 2 roll arc stroke grestore} def
  21. /el {gsave /rady exch def /radx exch def
  22.  /svm matrix currentmatrix def currentpoint translate
  23.  radx rady scale newpath 0 0 1 0 360 arc
  24.  svm setmatrix stroke grestore} def
  25. /fl {gsave closepath setgray fill grestore
  26.  currentpoint newpath moveto} def
  27. /fp {gsave closepath setgray fill grestore
  28.  currentpoint stroke moveto} def
  29. /av {/hhwid exch 2 div def /hlen exch def
  30.  /ah exch def /tipy exch def /tipx exch def
  31.  currentpoint /taily exch def /tailx exch def
  32.  /dx tipx tailx sub def /dy tipy taily sub def
  33.  /alen dx dx mul dy dy mul add sqrt def
  34.  /blen alen hlen sub def
  35.  gsave tailx taily translate dy dx atan rotate
  36.  (V) ah ne {blen 0 gt {blen 0 lineto} if} {alen 0 lineto} ifelse
  37.  stroke blen hhwid neg moveto alen 0 lineto blen hhwid lineto
  38.  (T) ah eq {closepath} if
  39.  (W) ah eq {gsave 1 setgray fill grestore closepath} if
  40.  (F) ah eq {fill} {stroke} ifelse
  41.  grestore tipx tipy moveto} def
  42. 0.24 0.24 scale
  43. 1 setlinecap 1 setlinejoin
  44. 3 setlinewidth [] 0 setdash
  45. 0 0 moveto
  46. 0 0 (T) 48 24 av
  47. 0 0 (T) 48 24 av
  48. stroke end showpage
  49. %%Trailer:
  50. %%BoundingBox: 0 0 0 0
  51. %%EOF
  52.